Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / CUBE.BAS < prev next >

Unknown | 1995-09-25 | 933 b

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| a1 03 00 00 0d 0a 27 20 | 43 75 62 65 2e 0d 0a 0d |......' |Cube....|
|00000010| 0a 27 20 49 6e 70 75 74 | 3a 09 34 2d 38 2d 32 34 |.' Input|:.4-8-24|
|00000020| 20 62 69 74 0d 0a 27 20 | 4f 75 74 70 75 74 3a 09 | bit..' |Output:.|
|00000030| 34 2d 38 2d 32 34 20 62 | 69 74 20 28 32 34 20 72 |4-8-24 b|it (24 r|
|00000040| 65 63 63 6f 6d 65 6e 64 | 65 64 29 0d 0a 0d 0a 27 |eccomend|ed)....'|
|00000050| 20 41 75 74 68 6f 72 3a | 09 41 6e 64 72 65 61 20 | Author:|.Andrea |
|00000060| 42 65 6e 6f 6e 69 09 09 | 09 20 72 65 76 3a 09 31 |Benoni..|. rev:.1|
|00000070| 2e 32 0d 0a 0d 0a 0d 0a | 73 74 72 69 6e 67 09 69 |.2......|string.i|
|00000080| 6e 70 46 69 6c 65 2c 6f | 75 74 46 69 6c 65 0d 0a |npFile,o|utFile..|
|00000090| 44 65 76 43 6f 6e 09 49 | 62 6d 70 2c 4f 62 6d 70 |DevCon.I|bmp,Obmp|
|000000a0| 0d 0a 66 6c 6f 61 74 20 | 20 09 78 2c 79 2c 4c 61 |..float | .x,y,La|
|000000b0| 74 6f 2c 4d 6c 61 74 6f | 2c 6f 66 66 2c 70 0d 0a |to,Mlato|,off,p..|
|000000c0| 52 47 42 20 20 20 20 20 | 20 20 20 70 69 78 0d 0a |RGB     |   pix..|
|000000d0| 0d 0a 69 6e 70 46 69 6c | 65 3d 22 74 65 73 74 69 |..inpFil|e="testi|
|000000e0| 2e 62 6d 70 22 0d 0a 6f | 75 74 46 69 6c 65 3d 22 |.bmp"..o|utFile="|
|000000f0| 74 65 73 74 6f 2e 62 6d | 70 22 0d 0a 0d 0a 49 62 |testo.bm|p"....Ib|
|00000100| 6d 70 3d 4c 6f 61 64 49 | 6d 61 67 65 28 69 6e 70 |mp=LoadI|mage(inp|
|00000110| 46 69 6c 65 29 0d 0a 4c | 61 74 6f 3d 6d 69 6e 28 |File)..L|ato=min(|
|00000120| 49 62 6d 70 2e 57 69 64 | 74 68 2c 49 62 6d 70 2e |Ibmp.Wid|th,Ibmp.|
|00000130| 48 65 69 67 68 74 29 0d | 0a 4d 6c 61 74 6f 3d 4c |Height).|.Mlato=L|
|00000140| 61 74 6f 2f 32 0d 0a 6f | 66 66 3d 4c 61 74 6f 2f |ato/2..o|ff=Lato/|
|00000150| 34 0d 0a 4f 62 6d 70 3d | 43 72 65 61 74 65 49 6d |4..Obmp=|CreateIm|
|00000160| 61 67 65 28 4c 61 74 6f | 2a 32 2c 4c 61 74 6f 2a |age(Lato|*2,Lato*|
|00000170| 32 2c 49 62 6d 70 2e 42 | 69 74 43 6f 75 6e 74 29 |2,Ibmp.B|itCount)|
|00000180| 20 0d 0a 0d 0a 69 66 28 | 28 49 62 6d 70 2e 42 69 | ....if(|(Ibmp.Bi|
|00000190| 74 43 6f 75 6e 74 3d 38 | 29 09 7c 28 49 62 6d 70 |tCount=8|).|(Ibmp|
|000001a0| 2e 42 69 74 43 6f 75 6e | 74 3d 34 29 29 09 09 27 |.BitCoun|t=4))..'|
|000001b0| 20 69 66 20 34 20 6f 72 | 20 38 20 62 69 74 20 63 | if 4 or| 8 bit c|
|000001c0| 6f 70 79 20 70 61 6c 65 | 74 74 65 09 09 09 0d 0a |opy pale|tte.....|
|000001d0| 20 20 46 6f 72 20 79 3d | 30 20 74 6f 20 32 35 35 |  For y=|0 to 255|
|000001e0| 0d 0a 20 20 20 20 20 70 | 69 78 3d 47 65 74 50 61 |..     p|ix=GetPa|
|000001f0| 6c 65 74 74 65 28 49 62 | 6d 70 2c 79 29 0d 0a 20 |lette(Ib|mp,y).. |
|00000200| 20 20 20 20 53 65 74 50 | 61 6c 65 74 74 65 28 4f |    SetP|alette(O|
|00000210| 62 6d 70 2c 79 2c 70 69 | 78 29 0d 0a 20 20 4e 65 |bmp,y,pi|x)..  Ne|
|00000220| 78 74 20 79 0d 0a 45 6e | 64 69 66 0d 0a 0d 0a 46 |xt y..En|dif....F|
|00000230| 6f 72 20 79 3d 30 20 74 | 6f 20 4c 61 74 6f 2d 31 |or y=0 t|o Lato-1|
|00000240| 0d 0a 20 20 20 46 6f 72 | 20 78 3d 30 20 74 6f 20 |..   For| x=0 to |
|00000250| 4c 61 74 6f 2d 31 0d 0a | 20 20 20 20 20 20 70 3d |Lato-1..|      p=|
|00000260| 47 65 74 50 69 78 65 6c | 56 61 6c 28 49 62 6d 70 |GetPixel|Val(Ibmp|
|00000270| 2c 78 2c 79 29 0d 0a 20 | 20 20 20 20 20 53 65 74 |,x,y).. |     Set|
|00000280| 50 69 78 65 6c 56 61 6c | 28 4f 62 6d 70 2c 4d 6c |PixelVal|(Obmp,Ml|
|00000290| 61 74 6f 2d 28 79 2f 32 | 29 2b 78 2b 6f 66 66 2c |ato-(y/2|)+x+off,|
|000002a0| 79 2f 32 2b 6f 66 66 2c | 70 29 0d 0a 20 20 20 20 |y/2+off,|p)..    |
|000002b0| 20 20 53 65 74 50 69 78 | 65 6c 56 61 6c 28 4f 62 |  SetPix|elVal(Ob|
|000002c0| 6d 70 2c 78 2b 6f 66 66 | 2c 79 2b 6f 66 66 2b 4d |mp,x+off|,y+off+M|
|000002d0| 6c 61 74 6f 2c 70 29 0d | 0a 20 20 20 20 20 20 53 |lato,p).|.      S|
|000002e0| 65 74 50 69 78 65 6c 56 | 61 6c 28 4f 62 6d 70 2c |etPixelV|al(Obmp,|
|000002f0| 4c 61 74 6f 2b 6f 66 66 | 2b 28 78 2f 32 29 2c 4d |Lato+off|+(x/2),M|
|00000300| 6c 61 74 6f 2d 28 78 2f | 32 29 2b 79 2b 6f 66 66 |lato-(x/|2)+y+off|
|00000310| 2c 70 29 0d 0a 20 20 20 | 4e 65 78 74 20 78 0d 0a |,p)..   |Next x..|
|00000320| 20 20 20 69 66 28 79 25 | 31 30 3d 30 29 0d 0a 20 |   if(y%|10=0).. |
|00000330| 20 20 20 20 20 50 72 65 | 76 69 65 77 28 4f 62 6d |     Pre|view(Obm|
|00000340| 70 2c 22 4f 75 74 70 75 | 74 22 2c 35 2c 35 29 0d |p,"Outpu|t",5,5).|
|00000350| 0a 20 20 20 65 6e 64 69 | 66 0d 0a 4e 65 78 74 20 |.   endi|f..Next |
|00000360| 79 0d 0a 50 72 65 76 69 | 65 77 28 4f 62 6d 70 2c |y..Previ|ew(Obmp,|
|00000370| 22 4f 75 74 70 75 74 22 | 2c 35 2c 35 29 0d 0a 53 |"Output"|,5,5)..S|
|00000380| 61 76 65 49 6d 61 67 65 | 28 4f 62 6d 70 2c 6f 75 |aveImage|(Obmp,ou|
|00000390| 74 46 69 6c 65 29 0d 0a | 44 73 70 4d 65 73 28 22 |tFile)..|DspMes("|
|000003a0| 45 6e 64 22 29          |                         |End")   |        |
+--------+-------------------------+-------------------------+--------+--------+